home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / eggs.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  384 b   |  23 lines
  1. 5 ' A simple passive demo ("eggs")
  2. 10 SCREEN 1
  3. 20 CLS
  4. 45 C=RND(I)*15
  5. 46 P=RND(I)*2.5
  6. 47 COLOR C,P
  7. 49 FOR I=1 TO 8
  8. 50 XC=RND(I)*319
  9. 60 YC=RND(I)*199
  10. 70 R=5+RND(I)*50
  11. 75 C=RND(I)*3
  12. 77 A=.2+RND(I)*5
  13. 80 CIRCLE (XC,YC),R,C,,,A
  14. 85 C2=RND(I)*3
  15. 90 PAINT (XC,YC),C2,C
  16. 100 NEXT I
  17. 110 GOTO 45
  18. 0
  19. 75 C=RND(I)*3
  20. 77 A=.2+RND(I)*5
  21. 80 CIRCLE (XC,YC),R,C,,,A
  22. 85 C2=RND(I)*3
  23. 90 PA